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VAL -- A Value-Oriented Algorithmic Language 


1. INTRODUCTION 


The programming language VAL (Value-Oriented Algorithmic Language) is designed for 
expressing algorithms for execution on computers capable of highly concurrent operation. More 
specifically, the application area to be supported is numerical computation which strains the limits 
of high performance machines, and the primary targets for translation of VAL programs are data 

driven machines of the form under development by the Computation Structures Group of the MIT 


Laboratory for Computer Science for high performance numerical computation. 


Nevertheless, it has been our intention that the language not have idiosyncrasies reflecting the 
particular nature of the application area or target machine. It should be reasonable for VAL to 
evolve into a general purpose language appropriate for writing programs to run on future general 


purpose data flow computers. 


In the design of VAL we have given careful consideration to the recently developed body of 
knowledge about program structures and language characteristics which support program 
verification. We have found a natural consistency between language design for support of 
concurrency and language design for correctness and verifiability. This has made it possible, in the 
design of VAL, to adhere to program structures and language characteristics that have been found 
desirable for ease of understanding and verification, and ease of building a program by combining 


separately specified modules. 


We have undertaken the design of a new language because existing languages for numerical 
computation have a serious deficiency: they reflect the storage structure of the von Neumann 
concept of computer organization in that each language has some method of effecting a change in 
state of the memory which cannot be modeled as a local effect. Fortran, still the most popular 
language for large scale numerical work, is particularly blatant in this respect since it was conceived 
as a high level notation for programs to be run on a machine of classical design (the IBM 704). 


Key words: programming languages, applicative programming, medularity 


The difficulty with-tanguages that allow specification:of global state changes is that programs 
may be written which are very difficult or impossible to anatyze for parts that may be executed 
concurrently. It is impossible in general to trace the flow of data with tess than a complete analysis 
of the entire program. Onty with such anaizels ts 1 powelite 20 find nd timinate 1 inessertial 


constraints on the sequencing of program parts. 


In contrast, the language VAL is entirely free of side effects: each module or well formed 
portion of a VAL program corresponds to a mathematical function and the entire effect of putting 
two parts together Is to compose the corresponding functions. Such a language is functional or 
applicative. Although designs for applicative tan unges hve been discussed many times in the 
‘Hterature, there have been few attempts to construct a complete and practical definition. This is 
due to the difficulty of tneorporating file updates and inputfoutput operations within the 
applicative framework, and the question of efficiency of implementation The efficiency issue is 
countered in VAL by our goal of highly pacallel execution, which is supported by applica xt 
languages, and our aim to develop computer archtiectues specically for efficent execution of 
programs expressed in functional Janguages. 


The file update and inputiewtput issues will be addressed in future versions of VAL in’ which 
streams of values will be introduced as a principal means for communicating between. program 
modules. Modules. that produce streams as output or accept streams as. input can be used for 
input/output processes. Further, the implementation of transactions ona data base may be viewed 
as the processing of a stream of commands by a data base “secretary” or “guardian” module that 
holds the data base as internal data. If it is desired to realize more concurrency in processing 
transactions, the data base may be divided into parts, each with its own secretary moduie. 


In developing the structure of VAL, it was natural for us to start from a language design 
which is of high quatity, is well documented, and is close in spirit to our goals. Such a language is 
CLU Il, 2], developed at MIT by the Programming Methodology Group under Professor Barbara 
Liskov. In particular, CLU is designed for complete compile time type checking, and it has a set of 
well thought-out control structures and basic data types consonant with modem principles of 
structured programming. | 


While we have adopted many of the fundamental ideas.of CLU, VAL differs: radically from 
_ GLU in that the latter, like many new languages, is object-oriented instend: of ‘value oriented...In 
keeping with this difference, the syntax and general structure of VAL are designed to reflect the 
functional character of the lenguage and our desire to support oo concurrent program 


| : execution. 
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a languages, there are no “objects” thought of as residing in memo 


Sy 


2 A program in VAL isa collection of separately translated pane Salled. modules. Each module 
contains the definition of one external. function. This function is accessible to all other. modules of 

the VAL program by use of its name. A module may ako contain the definitions of internal 

functions. These internal functions are used only within the module, and. are not accessibje:to other 
modules. 


The VAL language | is applicative, that ls, value oriented, In. “contrast to many. other 


: and being. Updated a as. the 
| "computation progresses. Even arrays and records are treated in VAL as mathematical values. 


A function computes one or more data values as a function of one or more argument values. | 


Except for invocations of other functions, a function invocation has. access only to its arguments; 
‘there, are no side effects. Further, a function retains no. sate Information from one invocation to 
another; each function invocation is strictly Independent. ‘Hence valves returned bya function 


depend only on the argument values presented to it “a VAL function rnplements, a true function — 


in: the mathematical sense. 


The data types of VAL include the basic scalar types: boolean, integer, real, and character. 
C Data structure values are either record values or array values, Records have a fixed format, in 
which each field has a specified type. An array type has an integer index set and its components 


are of arbitrary but uniform type. Data structures of arbitrary depth may be specified-usirig nested 
array and record types. Union types may be formed in which mer 8 allow discrimination am a 
specified set of constituent types. 


Each data type has its associated set of operations and predicates. Array and record types are 
treated as mathematical sets of values ~~ just as the boolean, integer, real, and character types. The 
Operations for arrays and records are chosen to support identification of concurrency for execution 
ona highly parafiel processor. . 


Exceptions are handled in VAL through special error elements in each date type. The 
element undef signals that one or more operand values are not in the specified domain of an 
operation. The element tles_Aft signet: that an arcay component i absent. ‘Other error elemenia 
me ereraet inthe numeric type to indie arithmetic exceptions. 


The design of VAL permits type checking to be performed by the translator. The type of 
each argument or result vaiue of a fonction is specified in the function definition’s header. Each 
value name used in the body of a function must have its data type specified. The operations of — 
" VAL are designed s0-thit the types of the resus can be determined ifthe types of the operands are 
‘known. Since the types of all atomic exprenions are manifest, the types of all expremsions can be 
determined. 


Since VAL isa sileetfect fee language, subexpressions may be evstnted in any onder 
without effect on compated resus “Thus the control structures of VAL use a xyntactic form ~ an 
expression — evatuation of which yields a tuple of ‘values. ‘Language constructs are provided for 
“conditional expressions (Hitvenfslee), and for steration expressions (Horfiter) the later being 
- acheme for representing iterations as tail recursions. {in adificion, expression structures are provided 
for distributed computation of the components of a new array or of values to be combined by ain 
“eperator. A torall/construct expression is used to compute the component values of a new array 
‘Simuttaneously. a 
_tgociative operation auch as addition, multiplication, or maximum. 


24 Notation 


Se ener en ee nee ent: lange curly braces {.. .} indicate zero..or more 
repetitions of the material within. Lange brackets | .. .] sndicate thet the-materiat within may 
_ Spear zero times or once. 


3. PROGRAM.FORMAT 


___ Programs are written using the ASCII character set. No “control” characters other than tab 
and newline are used, ‘except in. characer constants. The OF elements are Operation and 
punctuation symbols, real and integer numbers, character sings, reserved words, and names. 


The operation and punctuation symbots are the are 


+ - 8 ss  | & 
| < > <= >= =z 


An integer number is a sequence of digits without a decimal point. A real, number is a 
sequence of digits with either a decimal point or an exponent field. An exponent field is the letter 
“E ore’. an optional sign, and one or more digits... 


| A character constant is a single character enclosed. in single. quotes, A character string 
: constant ge fo om cere lS tes. , 

tabulate, ‘Space, newline, percent, and all gontrot characters, re resent , 

may be place in a string by using two double quote characiers. 


A reserved word isa word that always. has a Special neaning Reserved words may never be 
used in any context for other than their, special, meanin _ Reserved words in Program examples 
and in the syntax are printed in boldface in this report... 


The reserved words are: 


“ Pa cana 
end re 
_aritherror elseif". integer «= spos_over 
a ea 


array_addi = sendfun ———itiéid at record — 


array_jim: 
erray_remh- 
array_rem. 
erray_seti 
array_size 
boolean 

character a 


A name is a sequence of letters, digits, and underscores, of which the-first character rst bea 
letter. A nrame: may fet Ue the same as a reserved: ward: A name may be-used as a value.name, a 
fuinction name, a-defined -type-name,.a.recerd: field. nasne; or a. oneet tag. name. These uses alt 
have their own mechaniams for interprttin, and. fener a name ray be wed/without conics for 
several. of these purposes: ‘For example, a record ‘field. name + ccxats ony in a record type 
specification or reeand operation; and:heno® wif never be confused wit a Valve name: | 


Upper and lower cite eter in names and eri wor reno dangled bat all uses 
of. a name or reserved mo: at hae oa cep "Names omy be-of any reasonable 
6 a 


The separating characters: space, tabulate, and: newline are ‘equivalent (except in: delimiting. 
comments), and may appear anywhere except within a program element. Hence: they. may Not. 
appear within a.number or between the characters of a:two character operation symbol suchas >=, 
A separating character is required oniy between-adjacent constant, names, or reséeved words. For: 
example, separating characters are required to-dlstingutsh the program construct "t/p then 3 eles: 4 
endif” from the name “ifpthenSeteeAendit”. "Separating characte not required next wo operation 
pic aaia acon | 
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A comment begins with a percent sign and continues to the end of the line. A comment is 
equivalent to a space, and hence may be placed anywhere except within an program element. 
Examples of names and constants: 


ABC3_Q 

34 
.3141593E1 
2.718282 
5772157E-7 
~ 


“abc""def” 


4. VALUES AND TYPES 


The inputs and outputs of VAL expressions and:functions.are yalues.. The entire collection: of 
values. that may be presented: to or, prodiscnd. toy VAL. programs othe value. donmis.of MAL. The 
value domain is subdivided inte distinct disjoint subdomains: that. are the date types of VAL. 
There are basic types which imetude the familiar: scaler values of computation, structured types in 
the form of arrays and records: as.defimedt by the: language user in:terms-of simpler date types; am 
discriminated union types. 


4.5 Type Specifications 


A type specification in V AL is: a: syntactic. construct thtat specifies:a data type. 
‘Syntax: | 


| type-name | 7 
compound-type-spec.:t:= array [type-spec]! 
field-spec. :1:= field-name { , fiel-name } : type-spec: 
tag-spec::1= tag-name { , tag-name }.[ :type-spec ] 
field-name 3: = name 
tag-name: t:= name 


type-name:s:.= name 


For a basic type; the: specification is: simply the name of the type. For a compound type, the 
Necessary additional information within: brackets. 
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The array type constructor vie the type of the elements of the ma 
Examples: 


array { integer } 
array ( array.[ real }} 


-” Fhe record type constructor gives'the field names and the type associated. with each field. 
‘Fhe field names used within any record specification mest be distinet Where: sevéral field ‘names 
are listed with one type, the fields are all of that type. i ect ‘ 

Exampkes: 


record [ I, J: integer ; TEMP : real ] 
‘record(1: record [X: errey { boolean J; ¥ : charector }) TEMP veal ) 


-A-pame. may be used as a field name apd as.any other. name (but not.a reserved word) | 
without conflict, since it is interpreted as a field name only im the record constructor and in record 
operations. The same fle! name. cmay be wed in peverahreerd types wkhout qpefc 


The oneof (union).type constructor, gives the tags and the. type associated. with each tag. The. 

_ tag names must be distinc. Where several.tag names. are lated with one type, the tags all. indicate 

that type. If. the colon and. following. type. specification are omitted, the pull type is assumed. 
Examples: 


oneof [ UP, DOWN, LEFT, RIGHT J 
oneof [ FIX : integer ; FLO: real J 
oneof [ THIS : array ( Integer J; THAT, THE_OTHER : record [C: real ;D: boolean J] 


As in the case of field names, a tag name may coincide with any other narke without conflict, and 
the same tag name may be used in several union types without conflict. 

Any type name used as a type specification must be defined by a type definition (see Section 
46). Po Nags GO ek SPER GB Pas Sag Rot Pte Tass es 


iafge 


4.2 Value Domains 


Each data type is a domain of values as described below. As willbe seen, each data type 
includes proper elements, and error elements which occur as the -réesekt-of an: expression when 
computation of a proper value of the type is impossible. Each data type is further characterized by 
the set of operations that may be: used to create and -teansform values af the type. The. aperations 
for each data type of VAL are defined in Section 6, as are conversion operations that: convert 
values of one type into values of another. 


4.3 Error Values. 


The error elements are included to support the unusual treatment of exceptions adopted in 
VAL as discussed in Sections 5 and 7. TOS Le Sea ot Se attee selene a On Sree er 
foflowed by the type specification: enclosed in brackets, for example zere_dividefreal], This is 
‘because every vatue, ill ee eli: edie ena “ily a ap 
zero_dividefredi] is a different value from Zoro svcd per] 


Two error values are members of every data type: the element undefitype) resukts when 
operand values are ‘not in the domain of an operator, for example, if the index of an array access 
operation is outside the range of the array: the clement thies_eltitype) results if the index of an 
array access operation is within the array range, but no data value exists at that index. - 


4.4 Basic Types 


The Null Type 
proper elements: nil 
error elements: undefinull], miss_cltinull] 


- The null type occurs in a distinguished union ont where noe or more erates 
no data value is required. 
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The Boolean Type — 
proper elements: true, false 
error elements: undefiboolean), miss_eitiboolean) 


The Integer Type A iitest ¢ 
proper elements: The saceere baciraeh some leit which are 
implementation dependent. = a 
error elements: undeflinteger), miss_elt{integer], 
pos_overfinteger], neg_overfinteger], 
Psp obras ie aetieants curry to 


The elements pos_overlinteger] and neg_overiinteger] indicate th that the integer value is 
too large (posttive or negative) to be represented in the implementation The element 
unknownlinteger} indicates the Fesult of a computation that has exceeded the capacity of the 
implementation, “but whose true value 1s not known to be out of range The element 

zero_dividelinteger] indicates the resuit of: a division or x modulus operation with zero divisor. 


The Real Type 


proper elements: ‘Floating point” ‘epreventations of real “numbers 
inchading tero, with some ‘exponent range which is 
implementation dependent. 
error elements: undefireal], miss_eltireal], 
pos_overireal), neg_overireal], . 
pos_underiresl], neg_underireall, 
_ Unknownireal), zero. ividelreal) . 


The elements pos_ overireal] and neg_overtteal) indicate that the real value is larger 
(positive or negative) than is representable in ‘the floating point method ‘of the implementation. 
The elements pos_underfreal] and neg_underireal] represent non-zero values too small in 
magnitude to be representable in the floating point method of the implementation. The element 
unknown(real] indicates the result of a computation that has exceeded the exponent range of the 
implementation, but whose true value is not known to be out of range. The element - 
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zero_dividelreal) indicates the result of an. attempted division by zero. 


The Character Type 
proper elements: The 128 characters of the ASCIE character set. 
error elements: undeficharacter), mies_.siticheracter) 


4.5 Compound Types 
Array Types 


For each data type defined: by some VAL type. specification T; an. array type may be defined 
my She pe specllioanaY array(T]. ow: 
proper. elements: AA proper array valve in array (71 coaias of two. 
components: 
(A range (LO;HI) where LO. and HI are integers and 
‘LO ¢Hi+l. These are inchetive bounds on the defined 
elements. If LO = = HI + | the array has no elements. 
(2) A sequence of HI ~ LO + lelements of type T. 
‘error elements: ‘Every array type ‘arreylT] includes the elements 
undatlercaytTD and mies_stierreytTT 


Record Types 


If ty,..., t, aré VAL type specifications and Ais +» Ry are distinct mames, then 
record [n, : aT tty ] specifies a record type. a | a 
"proper elements: ‘Each proper value ofthe record type Is 2st of pairs 

Kn), 94)... » (Fy, ¥,)} where each y; is an element of f. 
error elements: undeffT, miss SIE, where T isthe record type 


~ 1 Pae RR Sete 


Union Types 


vt. Eaghi element of a-union type ts an element of one of several constituent types, accompanied by 
tm tag which:indicates she constituent: type frony which ‘thegement. was taken: :If t),...,t, are type 
specifications, : ee 19, are distinct: names, eee " rtp sees des ‘ ] spectfies:a 
proper elements: Each ieee chil Sis wien ee ” 
where <i < hand v; can element of 
error elements: undef{T], miss_elt(T], where T is the union type 


46 Type Definitions 
"Syntax: 


am x. t¥pe-def :: = type type-name = type-spec 
_type-name ::= name. 


A function definition may contain a number of type definitions which specify 
- {programmer-named types used in the functiort.’ “Each tjpe definition specifies that a type name 
“dertotes the type represented ‘by the given type-specifitation. “Phe type tpecification ‘part of a type 
definition: may contain type names defined fir the’ same‘ or Giher defuuitionis: Recursich and mutual 
“'rectitsionh are permitted in type definition’: Such type definitions: may ‘be used’ to construct data 
"typed ciated of array ot record strodhires of tednlbd dei se 
Example: 
type STACK = oneof [ empty : null ; element’: record’ vatue : real ; rest : STACK J}; 
The name of a defined type may be, used anywhere that a type, specification is permitted, eg. 
as the type parameter for constants such as miss_elt{type-spec}. . 
A name may be used as a type name and as any other kind of name without conflict, since it 
is interpreted as a type name only in well defined contexts. 


-{7- 


4.7 Equivalence of Type Specifications. 


Type checking is performed.by the VAL translater. by testing that-the type of each: expression 
or subexpression matches the type:required: bythe content: inr-whitch it appears: The type ‘of an 
expression or subexpression is.determined by its. composition from operators: and elementary terms 
as described in Sections 5 and 6. This-must match the type required by its context: an: argument:to 
a function must match the argument type-indicated :irv-the function's definition, and an expression 
on the right hand side of a definition:(see Section 7.2) rest: match the:declared: type of the name on 
the left hand side. . 


The necessary test is to determine if: two type specifications are equivatent, that is, if they 
denote the same type. Two basic: type specifications: are ‘equivalent if they are the same. Two 
array specifications are equivatent if. their: element — are —. Two record or oneof 
type specifications are equivatent if their 0 j nashied component types of constituent 
types are equivalent; the order in: which they are listed. is noe signattant: Ree ee ene is. 
equivalent to the type appearing on the: right hand side of its definition. 


A compound type specification can i laaines a dire enae eaters labeled. array, 
record, or. oneof, whose arcs from recerd or oneot nodes are jabeled with field or tag. names, 
and whose leaves are basic. types. Equivalence can: be formulated .in;tesms.of.this characterization: 
Two type specifications are equivalent if their trees. are identical, disregarding the order of arcs... If 
a type specification uses recursion, this tree is infinite; two such specifications are equivatent. if these 
infinite trees are identical. 

Examples -- assume the following type definitions: 
type NUM = real; 
type STACK = oneof [ empty : null ; element : ITEM J; 
type:ITew:= record { vatue : real’; rest: STACK ]; 
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Then the following pairs of type specifications are equivalent: 


real (A defined type is exactly equivalent 
NUM to the type that it is defined to be.) 
record [ a: real; b: integer ] (order of fields is not significant) 


record [ b : integer ; a: real ] 


oneof [ empty : null ; element : record [ value : real ; rest : STACK J}; 
STACK (The (infinite) trees implied by these 
type specifications are equivalent.) 


5. OPERATIONS 


In this section we specify the sets of operations applicable-to eact data typeof VAL. In the: 
examples of notation; P' and:Q stand: for boolean values; ] ant’: for integers; X'and:Y fer reats, C. 
and D for characiets; A and’B'for arrays, R for records, U' for whton (Oneefy values, and V for 


5.1 Error tests 


A number of tests are provided: for error: elements: The following three-are defined. for all 


i 


The test.is error is satisfied by all-error. values for: the type-to: which it is applied: undef, 
miss._elt, and any other errors such.as zero_divide:that exist. for that type. separaedicall 
tests, such as is over, are defined below for certain. types. 


All error test operations always return true or falee, never an error value. They must be 
used for testing for errors in preference to:the-equality operator (eg. “X = undefireail), since the 
latter returns undefiboolean) when: X:is an error vahie: 


5.2 Null operations 


The null type is used to provide a case in a union type for which the value is irrelevant. 
There are no operations, for this type except the error tests Is:undet, is mies_elt, and is-error. 


5.3 Boolean operations 


The boolean operations are the following: 


operation notation functionality 
and P&Q bool, bool + bool 
or PIQ bool, bool + bool 
not aa bool + bool 
equal | P=Q bool, boo! + bool 
not equal P~=Q bool, bool + boo! 
test for undef is undef(P) bool + bool 
test for miss_elt is miss_elt(P) bool + bool 
test for undef or miss_elt is error(P) bool + bool 


If an error value is an operand to a boolean operation other than an error test, the result is 
undef[boolean). 


5.4 Integer operations 


The integer operations are the following: 


operation notation functionality 
addition J+K int, int + int 
subtraction jJ-K int, int + int 
multiplication jek int, int > int 
_ division jJ/K int, int > int 
modulus mod{j, K) int, int > int 
exponentiation exp(J, K) int, int > int 


negation -J int + int 


magnitude ebs(J) int: int 
maximum max], K) | int, int > int 
mintmum min(}, K) int, int + int 
equal j= int int + bool 
not equal J~=K int, int + bool 
greater, less J>K,J<K int, int + boo! 
greater/equal, less/equal J >= KJ <=K int, int + bool 
test for pos_over is pas_over()) int + beol 
test‘for neg_over is neg_over(j) int + bool 
test for unknown is.cmknown]) int + bool 
test for zero_divide is zere, dividel)) int ~ bool 
test for pos_over or neg_over te-ever()) int» ‘beol. 
test for pos_over, neg_over, iswith_error(]) —_int + boot 
unknown, or zero_divide | | 
test for undef is undef(y) ‘int + bool 
test for miss_elt is miss_sit()) int +» bool 
test for undef, miss_elt, pos_over, js-errori)) int + bool 
neg_over, unknown, or zero_divide 


The error value zero_dividelinteger} may result from the division or modulus operations. 
The error values pos_overfinteger] or neg_overfinteger] may result from the arithmetic 
operations if the result exceeds the range of numbers representable on the target computer. _ 


If the error value undeflinteger], miss_elt{integer], or zero_dividelinteger) is an 
operand to any integer operation other than an error test, the result is undef of the appropriate 
type. 


The integer operators have the following special behavior with respect to the error values 
pos_over, neg_over, and unknown. These rules are of course symmetric with respect to 
exchange of the arguments to +, *, max, and min. These rules do not pease if any paciiae is 
undef, miss_elt, or zero_divide. 


fa. . pos_over+j = pos_over if J >0orJ = pos_over, 
unknown otherwise 

Ib. Neg_over+j = neg_over if J <0 or] -neg_over, 
unknown otherwise 

Ic. unknown +J - unknown 

2a - pos_over = neg_over 

2b. -Mneg_over = pos_over 

2c - unknown = unknewn 


3. J-K = J+(-K), 80, for example, by rules 2a and Ib, 
jJ-pos_over = neg_over if J <0Oor] = neg_over, 
unknown otherwise 


. 4a, jJ*pos_over = neg_over if Jj < -lor] = neg_over, 
 pos_over if} >! or J = pos_over, 
0 ifj=0, 
unknown otherwise 
4b. Jxmeg_over = - (Jj « pos_over) 
4c. J unknown = 0 if J =0, 
unknown otherwise 


5a. J <pos_over = true — unless J = pos_over or unknown, 
in which case the result is undef 
5b.  neg_over <j = true unless J = neg_over or unknown, 
in which: case the résult is undef 
_ The preceding two rules also yield true if the connective is <=, and false if the connective is > or 
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>=. They are also.of course symmetric with respect.to-exchange of the arguments. and. reversat of 
_ the connective. 


6a. ebs(pos_over) 2 ebe(neg_over) = pos_over 
6b. abs(unknewn) = unknown 


max(pos_over,}) - poe_ever 
tminpos_over, J) - J 
max(neg_over, J) = J 
minineg_over, J) = neg_over 
‘mextunknown, J) - unknown 

_ mintunknown, J) - unknown 


ave a ee 


Other than the above cases, if any operand to a integer operation ‘other than-en error test: is 
an error value, the resuk is undef-of the appropriate type. 


5.5 Real operations 


The real operations are the following: 


addition X+Y pat, peal > real 
subtraction X-Y.... ~ ose sig, peal + real 
muttiplication XeYoo |. real, rest rea} 
division x/Y ‘Teal resk+ ren) 
exponentiation exp(X, ¥) oe pgm real + read 
exponentiation with integer = @xBAX, J) real, int -> real 
negation | OA Fh a ., regl + geal} 
magnitude | wbx) peat + real 
maximum . X,Y) tag) real opeal. 


minimum mikX,Y) «srg real + real 


- 94- 


equal , HK we We et: “real, real + bool 
Rotequah — Xaey real reats boot 
greater; less KDR .. teal real-+:boot — 
greater/equal, less/equal X ># Y,X <2 Y .. tegal teat +: bool - 
test for pos.over bn is pos_over(X) -  -geal + bool 

test for neg_over . is neg_over{X) .. - teal bool 

test for pos_under a is pos_under(X). ~  “feal +, bool. 

test for neg_under is neg_under(X) . real bool 

test for unknown is unknown{X) -....-feal+ bead. 
test for zero_divide _ is zera.diyide(X). real + bool 

test for pos_over or neg_over. - is over{X) real + bool 

test for pos_under or neg_under is under(X) ; | », gad bool 

test for pos_over, neg_over, _ is arith_excer(X) .-s¢a} + bool 


pos_under, neg_under, unknown, or zero..divide - 


test for undef isundef(X) . .— real+bool. 


test for miss_elt is miss_elt(X) real + bool 
test for undef, miss_elt, pos_over, is error(X) real + bool 


neg_over, pos_under, neg_under, unknown, or zero_divide . 


The error value zero_dividelreal) may result from the division operation. The error values 
pos_over(real), neg_over{reel], pos_underireal], or. neg_umderireal) may result: from the 
arithmetic operations if the result exceeds. the range of. numbers representable on the target 
computer. | 


If the error value undefireal], miss_eltireal], or zero. dividelreal) is an operand to any 
real operation other than an error.test, the result is undef of the appropriate type. 


The reat: aperaters have the following special ‘behavior with respect to the error values 
pos_over, neg..over; and. unknown: These rules. are of course symmetric with vemputt’ to 
exchange of (he-arguments:to +, =, Tmax; ancien ee antennae : 
undef, miss_olt, or sarmistivide. 


la. pos_over+ K = pes_sver if % >itor X » pes_over er pes_umder, s 
sealant laldenie 08 ete aes 

Ib. NOg_OVEr+% + Neg_ever” 4% <Otidt'X = neg_over or neg. ander; 

Id. pos_under+% «+ X if % wtiitend ite proper value 

fe. neg_under'+;X = X if X #00.0i8iveproper value 

th. = pes_under+negunder - uiNewr 8 


- pos_over- mag_over 


- heg_under - pos_under 


VRRP 
i 
By 


ye 


X=¥ « Xe(- ¥ ) so:fer example, Uyrates Sktind hy, 7 


4: = Xe pORLover + Reg_over HR <filter Rs neg weer, 
posever if K Pir hs phe_ever, 
00 if X = 060, 
unknown otherwise 


4b. X x neg over = -(X « pos_over) 


4c. X x pos_under = neg_under if -10 <X <000rX = - neater 
pos_under if 0.0 < X Steer dipeezumnder, 7 
00 if X = 00, 
ie unknown otherwise 
4d.  Xxneg_under - - (X  pos_under) 


4e. X x unknown |= 00 if X = 00, 
unknown otherwise | 


Sa.  X <pos_over = true unless X = pos_over or unknown, 
, in which case the result is undef 
Sb.  neg_over <K = true — unless X'= neg_over or unknown, 
—- "in which case the result is undel ~ | 
The preceding two rules also yield true if the connective ts <=, and false if the connective is > or — 
>=, They are a oe eee re cap erences mney reversal ee 
“the connective. 


6a. abs(pos_over) - abs(neg_over) - pos_over 
6b. abs(pos_under) = abs(neg_under) - pos_under 
6c abs(unknown) - unknewn i 


Ta tmaxtpos_over,X) = pos_over 
To minipos_over,X) = X 
Te. max(neg_over, X) = X 
| 7d minineg_over, X) = neg_over 
Te. max(unknewn, X} = unknown 
7. min(unknown, X) = unknown 


" Other than the abpve cases, if arly operand to a real operation other than an error test is an 
error value, the resutt is undef of the appropriate type. | 
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5.6 Character operations 


The character operations are: the following: 


operation notation . . functionality 
equal C=D aie a bay, char + boot 
not equal C~<D . Shar, char + bool 
test for undef te undefiC) _ char + 

test for miss_eit is mies _sit(C) char + bool 

test for undef or miss_elt _ terror) . char + bool 


Ifan error valu an apr. here apertion the han a ror a, he rn 
undeficharecter) 


7 Array operations 


The operations for the array data type arrey[T] include: creation ‘of -new: arrays, selection, 
producing new array values by apperiilinig components to:an array value, and combining arrays by 
concatenation. Recall that an array: ‘value consists of.s- range defined:by:a low-iulen: LO, a high 
index HI, and a ee ee ern ee ee eee eee — 


append AQ: V] - arrayiT1 int, T + arrayfT) r 
create by elements J:v) int T + arraylT] . . 


index of highest | erray_jimA) = arrayiT]+ int 


index of lowest ‘array _jimi(A) 
number of elements -  array_size(A) 
extend high | erray_addi(A, V) 
extend low erray_eddi(A, V) 
remove high . erray_remivA) 
remove. low roo a erray_remiA) ; 
set low limit _ prray_setKA, J) 
concatenate ANB : es . 
merge defined elements array_join(A, B) 
test for undef is undef{A) 
test for miss_ _elt is miss_elt(A) 
test for undef or miss_ et is error(a) | 


In general, the resukt of an array operation is the error element undef of the appropriate type 
if either an index operand is an error value or an array operand is undef or miss_elt. The 
remaining cases in which the result is an error are specified below for each operation. 


Create array_empt yltype-spec] 


This is actually a constant. It is an array of the indicated type whose Jow index is one, high 
index is zero, and which therefore contains no elements. 


Create/fill array_filKLO, HI, V) 
This creates an array with the given range and all elements equal to the given valve. If 


Lo > HI41, the result is undeffarray(T This operation yields a proper array even if V isan 
error value such as undef or pos_over. 


Exampte: 
arrey_fill(1, 10, 6) 
8 afl trray with 10-elements, all equal to 6. 
Select A{j] 
This operation yiekts the element of the array A at index J. If J is not within the range of the 


array, the result is undef{T} - Otherwise, the resttk is whatever value is in the array, which may be 
an error value such as rife, -OvCT} oF undef] 7 


Append AIJ: VI 


This returns an array identical to A except that the element at index J has been replaced by 


 value-V. The range of A is expanded as needed to inchide index J, and any new elements in the 


expanded range are given the value miss_elt(T] For example, if A fas bounds I and 3, and J ts | 
10, elements 4 through 9 will be miss_sitIT] in the resuk. 


Create by elements {J:V] 
This returns an array with low and tigh indices both J, and one element V at index J. 


. 


There are abbreviated notations for compositions of select, append, and create by elements 
eparations ‘0 imply construction of wath: iohent sivaye “ant Sor spuniig, “on 
mutti-dimensional arrays. See Section 6.4. 


Index of highest, lowest array_jirelWA), array_jimi(A) 


These functions return the high or low index of A, respectively. 


Number of elements array_size(A) 
This returns array_Jimb(A) - arcay_jimK(A).+ 1. 
ee aaa esata Gi) ; i . | ; | ; : on ‘ 
he 2 an array with range (J, K), containing, the same data. as A where, possible. At jw 
greater than array_limi(A) or K is less than array_jismi(A), some elements of A will be absent in 


the, resukt.. If J is less than array_lmiA).or K 4s greater than . 
positions are set to miss_elt(T] 


Extend high, low array _addbyA, V), array_addA, V) 


_ These return the array A with high de cro oy ome om Ande 
secede TEES AE INE NEM Aime: 


ps high, low - erey_sonbins ervey sno, | 


These return the array A with its high index decreased by one or: is ‘low itdet ineretised by 
one. An element of A is lost in the resuk. If the array A has size zero, the resuk is undef. 


A ae 


Set low limit array_setK(A, )) 


This adds J - array_jimKA) to all element indices and to both components of the range, 
yielding an array similar to A but with the shifted. Its low index is J. 
array_setK{ 2 :%,¥,7 5) 
denotes the same value as _ | | 
{5:%,Y,27] 


where the abbreviated notation is defined in Section 64. ~~ 


Concatenate A||B. 


This returns an array whose size is the sum of the sizes of A and B, formed by concatenating 
A and B. The low index of the result ts the same as the low index of A..and the elements of A 
retain their original indices. The indices of B are shifted as necessary. 


Merge defined elements array_join{A, B) 


"This merges the arrays by elements. The low index of the result is the minimum of 
array_Jimi(A) and erray_timKB), and the high index is the maximum of arrdy_jimb(A) and 
 e@rray_limiB). Those elements of the result that are not within the range of either A or B are set 
to miss_elt. Those that are within the ratige of one argunient are ‘set to the correiponding 
element of that argument. Those that are within the range of both are set to the corresponding 
element of ‘A if the corresponding element of B is thies_git, to the corresponding element of B if 
the corresponding element of A is miss_elt, and to thiss_elt otherwise. This ‘operation is 
intended to be used to merge partially defined arrays, such as an array with only even elements 
defined (the others being mies_elt) and an array with anty odd elements defined. 


5.8 Recerd.operations 


The operations for a record type specified as T = record(N,:T; aor Ny: 7, dare the 
foflowing. N, ...N, are the field names, and T, ...T, are the corresponding types. 


operation notation functionality 

create record[ N, TL :Vi,d 
Ty,....T, °F 

select, 1S ik —ORLN; ToT, 
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_ test for undef is undef(R) | T+ bool 


test for miss_elt is miss_elt(R) T+ bool 
test for undef or miss_elt is error(R) T ~ bool 


Create record[ N,:V,;...;N,: Vy) 


This builds a record value { (Ny, V1)....(Njy,Vy) } All of the flekd names associated with 
the type of the record being constructed must appear, in the list, though some may appear, with 
error values such as undef{T,] or miss_elt(T;) 


Select R.N 

This returns the value of the es field, Wee is, V; if N= N. 
Replace Rreplace(N:V] 

This returns a record similar to R except that the N-fiekd is changed to Vv. 


Abbreviated notations are provided for compound selectors and muttiple values in replace 
operations. See Section 6.5. 


5.9 Operations for union types 


The basic operations for a union type specified as: T = .eneof{N, :T;;...;N,:T,Jarea 
create operation and a test of a tag. The tagcase control structure explained. in Section. 7.3-is the 
mechanism for accessing constituent values from a value of union type. In the following, N, ... Ny 
are the tag names, and T, ... T,, are the corresponding constituent types. 


Qperation notation functionality 


“create, 1S 1 <k makeT(N,:V] = -T,4T 
tag test, <i ck : is N; (U) T+ boot 


test for undef is undef(uy T+ boot 
test for miss_elt is:miss,_eltit)) T > bool 
test for undef or mies_elt «ts errer(uy:  - T+ bool 


The operations make T [N : V J and is N (U) are type-correct only if N is. tag name of the 
type T and V is of that constituent type. The resutt of raake TT 'Nj : ie Silahalh Vi: for 
any element V of T;. The result of is N; (U) i thneif U'« “ay Shanes ube Ui 
undef{T] or miss_elt{T], or falee otherwise. ° 


5.10 Type conversion operations | 


characters. 


operation notation — functionality: 


real-to-integer : integertx) | eal int 
ooh bad reak)) int ~ real 
integer-to-character character(}) int + char 


In each. case'an argument value-of undef or mies_elt: ee For other values 
the conversions act as follows: 


Integer(x: 


If X is larger in: magnitude than is representable ‘as a proper element of integer, the result: is 
pos_over or neg_over. If X is zero _divide, pos_over, neg_over, or unknown, the result is 
undef. If X Is pos_under or neg_under, the resut is zero. Orherwize, the resutt is obtained by 
rounding nonintegrat values of X toward zero 


a 
real()) 


All proper values of J are converted ‘to the ielanataales teats. If J is Sere aviee: 
“pos.over, veneslha ‘or —— the result — . 


saeco - 
This arene yields the ASCII code for the character C. 
character - 


This operation is the inverse of integer(C). Its resuk for values not in the range of 
integer(C) 4s not specified, 


5.11 Type correctness of operations 


i 


In VAL the type of value produced by each expression can be determined by the translator 
from the properties of the operations as specified in this section. An ‘operation 1 ina program is type 
correct if and only if the types of its argument expressions, are the same as the argument types 
specified for the operation. Note that for each operator the types, of the results are determined 
when the types of the arguments are known. ‘i 
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| 6. CONSTANTS, VALUE NAMES, AND-EXPRESSIONS 


ne ee s the basic s ap ath: mee ee preaesis 


The s sche ipa ad eae at ates arity 4s ey 


commas. 
6.1 Censtants 


A constant is a syntactic unit of arity one whose value and type are‘ manifest frotn tts form. 


: constant ::= nil | true | false 


parca me zero_divideltype-spec] 


The values undefitype-spec] and mise_eltitype-spec) are r constants denoting the undefined 


exist for a Hf types, including array, record, and union types. Te maton coca tor wich Si 


type are as follows: 


The only constant of the null type is the reserved word nil. 


The constants of the boolean type ase the reserved: words true.and falee. 
1 
_The principal constants of the integer and real-type are integer numbers and real numbers, 
the format of which are given in Section 3. There are:also the:following arithmetic error constants: 


pos_overlinteger) pos_over(real) 

_ neg. overlinteger) neg_overiresl) 
pos_underireal] 
neg_anderireel) 

unknownlinteger] unknownireal) 


zero_dividefinteger) zero_dividelreal) 
The constants of the character type are the characters enclosed in single quotes. 


A character string enclosed in double quotes is a constant of type arrayicheracter) 
containing the individual characters of the string as elements. The first tharacter ts at index one. 


The artay constant erray_emptyitype] denotes the faa, of the indicated element type whose 
tange 1 Dae ence a ae ee ae 


There are no othet array, record, or union constants, but various constructing operators may 
be used with constant arguments to denote “constant” arrays, records, or union elements. 
Examples: 


(1:1,2,3,4,5]) (array constant, see Section 6.4) 
record([A:6;8:7.3) (record constant) | 
make T[A:6] : (constant of union type T) 


6.2 Value names 


A value name is a name which denotes a . single computed value of a specific type. Every 
‘value name is introduced either in the header of a function definition (if the value name is a 
formal argument of the function being defined) or ina program construct such as a let block or a 
for block. In either case, each value name has a scope and a type, and hasa unique value of that 
type for each instantiation during execution of the function or block with which the value name is 
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associated. The scope'of a valuename is the region of program:tent in which @ reference to the 
vatue name denotes its value. The scope and type of any value name may be determined by 
inspection of the program consruct thet sree i. tm vahee of cour capensis on tre vahoes 
present during. tmp eae eRe Ole 


The scope of a value name tntradmeed.as.a formal angument.of a fupetton is the entire 
function definition, less any inner seopes:timt:resisitroduce the same valuename. The type of such 
a value name ts giver: bya type déelaentiogr'in tter'function header. Its value. is the value of the 
corresponding argument for the relevant inveration:of the function. =~ 

Exampke: ee 
function F.( X.: ioiceae eateaatadl 
<expression> 
endfun 
An appearance of vale name X i the epranian dane the wef th apport wth which F 
was invoked. _Its type is fotager. 


The scope of a value name introduced in a. paogram comsteuct such.as.2, let oc for tolock is 
‘Some region of the construct that depends: on: the nature ofthe qon ‘eas.any_inner scopes. that 
re-introduce the same value name. The manner i which the pe and value of te vale name are 
established depends.on.the form of the:cemstrct. . 

Example. 
fet 
X: real = 3.0 ; 
<another decidef> ; 
<another decidef> ; 
<another decidef> ; 
im <expression> 
endiet . 
The scope of X is the entire block, inchuding the expression after in, less any inner scopes that 
re-introduce X. Its type 4s: real; its value.is 30. The: bet comutruct is described in Section 72. If 
this block had appeared within the scope of X tread some eae porate, hat omer sop, 
| with its value and type, would disappear within this tet block. 


6.3 Expressions 


Expressions are buitt out of smaller expressions by means of operation symbols. 
Syntax: 
expression ::= level-l-exp | expression , level-j-exp (the arities are added) 


In the next 8 lines, the operators may only be used if all operands are of arity one. 


level-3-exp ::= level-¢-exp |~ level-t-exp SS (boda “not”) 
fevel-4-exp ::= level-5-exp | level-¢-exp relational-op levelbexp 
level-5-exp ::= level-6-exp | level-5-exp [f level-Geexp: (array-concatenate) 
level-6-exp'i1 = level-7-exp | tevel-G-exp:adding-op levet-T-exp 
level-7-exp :1= level-6-exp | level-7-exp'muttiptying-op level-S-exp 
level-8-exp 3: = primary | unary-op primary 


relational-op ::= <|<=|>|>=|=|~= 
adding-op ::= + | - 

‘muktiplying-op ::= « | / 

unary-Op ::= + | - 


primary :: = constant | vatue-name (these have arity one) 
| (expression) (stithe arity as expreision in parentheses) 
| invocation (arity is the number of Values returned) 


| array-ref | array-generator 

| record-ref | record-generator (These' eight forms 

| oneof-test | oneof-generator have arity one) 7 

| error-test | prefix-operation it i ak a 


| conditional-exp 
| tet-in-exp __ (These five structures are 
| tagcase-exp described in Section 7. 
| iteration-exp They have arbitrary arity.) 
value-name s:= name 


In an invocation, the ay of the exreion in parents mt be eq 6 the number of 


' aftguments required by the function. 


invocation 3: function-name (expression) 

function-rrame t:= name 

array-ref. 13= primary {expression} 

array-generator :: = [ expression : expression { penprenion + cgi V3 

| primary { expression : expreman{ ; ereamreners ei 

record-ref ::= primary . field-name . 
In the next 7 forms, all expressions must have arity one: except as otherwise noted, and the resultant 
expressions always have arity one. oe a | 

record-generator ::= record [ fiekt-name : expression { ; feid-reme : expression } 

"| primary replece [ fiekt ; expression: { ; field : expression } ] 

field ::= field-name { . fieli-name } 

_fleld-name 1: = name 

oneof-test 11 = Is tag-name (expression) 

oneof-generator t= Make type-spec [ tag-name : ‘eceeaen't 

tag-name 3: = name 


error-test t2= be undef (expression) | ts mies_oft (expression) 


| ts error (expression) | is zero_divide (expression) 

| is pos_over (expression) | is neg_over { cpressipn) 
|i pos_under (expression) | fe neg_mder (expresion) 
| is over (expression) | is under (expression) 


| is erith_error (expression) | is unknown (expression) 


The arities of the argument expressions for a prefix operation ate as shown, and the result arity is 


always one. 
| Peete xiperation 3:= integer (expression) (arity = 1) 
| | real (expression) (arity =f) 
| character (expression) (arity = «1) 
| abs (expression) | (arity =) 
| exp (expression) (arity'=4) 
[ mod (expression) (arity = 2) 
| max (expression) (any arity) 
| min (expression) (any arity) 
| array_fill (expression) (arity = 3) 
| array_limh (expression) (arity = 1) 
| array_Sind (expression (ay = 1 
| array_size (expression) - (arty =) 
| array_adjust (expression) (arity = 3) 
| array_addh (expression) (arity « 2) 
| erray_addi (expression) (arity=2) 
| array_remh (expression) (asity = 1). 
| array_rernl (expression) (arity - 1) 
| array_join (expression) . gariey 2 2) 
| array_setl (expression) 


eo Dice NAOMSbe seer gt Oe A ed pic ter se Pee i sah 
= : 


(arity = 2) 


Note that operators obey the customary precedence rules: unary plus and minus have highest 
priority; mutiplicative operators (x, ) are next, additive operators (+, -) are_next, “IT is next; 
relational operators (<, <=, >, >=, =, in) are next; | ~ As next; “&* is next; and "fT has lowest 
priority. 


Examples of expressions of arity.one:_. 
A 
true 
3.7E-02 
he 4g : 
"XYZ" HEL CF “POR 
orray_s apty tint r] 


X>2GZ2< eK - 
-X+3-08 

3a(X+Y) 

func(34X, Y) (1 "Yume" returns one val) 
(3:2) 

A[3:Z] 

AL4J3] 

R.X.Y. 22 

record [ A:P;8:Q) 
brung asco QJ 
eA aT 


if Pthen:4 ehve Sordi | {(s00 Seetion " oy 
6.4 Abbreviations for array uperetions 


The syntax provides abbreviated forms for the select, append, and create by elements 
Operations; indaaianirsiasiais eiecmc mer emre daaratcrenron gies | 


__ Sine nftimesiond:arey are represen array of ara the straightforward way t 
‘ ater ts Sletten expan i, ag Te Ee wee nk’ gee Boat 


ALIKE 
This. may be written 
AL KL] 
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The append. operation can be used for mukti-dimensional arrays by using an expression of 
arity greater than one for the subscripts. Thus 
ALAKL:V] 
is equivalent to 
ACJ: ACC K : As, KEL: VN 
that is, A with its J. K, L element replaced by V. 


_ Several values may be appended at consecutive indices by ving an on of sei aieiied 
than one. 
A[J:V,W,X] 
is equivalent to | 
AL JV; HIW; 2X ] 
If mutti-dimensional arrays are being used, the last index is the one that. varies when multiple data 
items are present. 
ALS KLEVW,X] 
is equivalent to 
A[ JK, UL: V5 5K, Ll: W; 5K, L+2:X J . 
These expressions need not be constructed by listing expressions of arity one separated by commas. 
Other forms of expressions with high arity will be described in Section 6.6. For example: | 
A[ J: TRIPLE(X, Y, Z) J 
fills in indices J, J+1, and J+2 if TRIPLE is a function returning three values. 


Finally, append operations may be ee by writing the J: V pairs in sequence within the 
brackets, separated by semicolons. 


AL Jy 2 Vy 5 Jo: Vos..-3 dyin) 
is equivatent to 
A[ Jy: Vy [Jo: Vo)... Liye Vy) 


where, as noted above, J; and/or V; may be expressions of any arity. 


-- 


Att oe en ph et pn pi 9 
elements operation. 
Examples: 
{3:%;5:Y,Z]} 
is an array with range (3, 6), and elements X, miss_elt, Y, and Z. 
{1 A] es 
is a “singleton” array. with.tlew and high indices both one: 


6.5 Abbrevietions for record. cperations 


There are abbreviated forme: for the replace: operation: to allow convenient handling of 


Sa aac aa ade ; 
R.A.8.C 


Compound selectors. may: ten pts ying mp 
by pertats 
‘ Rreplecef A.8.0::.¥-}: 
4 equivaient to 
R replace { A: R.A replace[ 8: R. AReeplere(C: vn 
that is, R with:its A. Bs C sanccnapene: lice 8} v. 


replace operations may be composed by wring te LA le aue mening 
brackets, separated-by semicolons. 
R replece:f. A: V; 8: Tees 
is equivaiert to 
UR replace { A: vp replace B: w Draphieeteo: 4) 
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_.6.6 Expressions of higher arity | 


The program structures provided in VAL. for ‘conditional computation and iteration are 
expressions of arbitrary arity, and are described in Section ue “Such expressions, or function 
invocations, may occur in program text in places that require. a. tuple: of valves.of spetified types: 
the argument list of an operation or function invocation, the body of a function definition, a list of 
array indices or elements in an amy operation, or in’ Ssaisicke the | program structures — in 


. Seetion 7. 


6.7 Function invocations 


A function invocation consists of the name of the function followed by an argument list within 
parentheses. (The syntax is the same for internal and external and external functions.) The 
argument list is an expression, whose arity and types conform to the arguments required by the 
function. This information is given in the header of the function definition. See Section 8. The 
argument list is usually written as a series of expressions of arity one separated by commas, but it 


may be any expression. 


| A function invocation is itself an expression whose arity and types are the number and types 
of the values returned by the function, which information also appears in the function's header. An 
invocation that returns one value may appear in expressions with complete generality, such as an 
argument to arithmetic, array, and record operations. An invocation that returns several values 
may only be used where expressions of higher arity are permitted. 


In the following examples, SINGLE, DOUBLE, and TRIPLE each take 3 arguments and 
return I, 2, or 3 values, respectively: 

K i= 3+ Z ® SINGLE (X + 1, 3, SINGLE (X + 2, 4, W)); 
In the following example, if P is false, F and G are defined to be DOUBLE (X, Y, Z), while 
H is defined to be W: 

F, G, H := If P then TRIPLE (x, Y, Z) else DOUBLE (x, Y, Z), W endif ; 


Since the angament list for any function may.be any exprestitn, tt nay Be a meniptetwiak 
fanction invocation or other ‘Program structure. 
3 + SINGLE (TRIPLE % af) 


-9 + SINGLE @, en 


4+ SINGLE AFP then 4, 6-olee QOUBLE*®, Rent, » 


The tast example invokes SINGLE with three-argurnents, of: which the first two are either 4nd 5 
or the two values returned by DOUBLE. The third argument to SINGLE is always X. 


7. PROGRAM STRUCTURES 


The program structures. described thls eto are specie frm of express, If their 
arity See ere en Mat 
Exampte: 
if P then x else Y endif +3 


This expression has value X+3 or Y+3, depending on P. 


7.1 The IF construct 


‘The conditional expression selects one of several. expressions, depending on the values of 
boolean Apretione: 


Syntax: 

coikionslen :1= if expression then expression 
{elseif expression then expression } 
_ @lse expression 
endif 


The expressions following if and elseif are test expressions. Their arty must be one and their 
type. boolean. The expressions following then and else are the erms. They must conform. to 
each other, and the entire construct conforms to the arms. 


The entire construct is an expression whose tupte of values is that of the first arm whose test 
expression is true, or the final arm if all test expressions are false. If any test expression ‘needed to 
evaluate the construct is an error value (undeffboolesn) or miss_eltiboolean), the value of the 
entire construct is a tuple of undef values of the appropriate types. Qf a test expression has value 
true, later test expressions are not needed and may have error. values without affecting evaluation 
of the construct). 


The if construct introduces no value names. All value name scopes pass into an if construct. 
If the scope of a value name includes an If construct, it includes afl of the expressions of that 
construct, so that value name may be used anywhere inside the conditional construct. 
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7.2 The LET construct 


The purpose of this: construct: is: to: introduce: one or more: value names, defivee thetr values, 
end @valuate an expression within. thelr scopethat:isjamuking: se of tleele:ctefined:-vahues).. ae 
Syntax: . 
let-in-exp si = 
| let decktef-part 
in expression 
endiet 
 deckdef-part 1:=-deckdef:{ ; decitef'} [; ] 
_ Gecidef :: = dect | 
| def 
| dect { , dect } = expression | 
dect 21 =-value-name { , valuename } 2 typespec: 
def s:= value-rame {, vatue-name’} := expression . 


Every. value name: introduced: in:a-let block nmust be:deciared exactly once: and defined exactly 
once in that block. The-declaration say ‘be: part of the definition, or it may be by: itself preceding. 
the definition. a y= aed 
X: integer; (declaration) — 

X83; (definition). 
Y: veal := 4.7 +; (décterationes.pert of definition). 


The declaration of a value name must precede or be part of its definition. Each value name 
must be defined ‘before it is used (on the right hand’sidé of another definition): Dectarations and 
definitions maybe mixed in any order-as long as these.requirements are met: 


Several value names may be declared at once: 
x, Y,Z: real; 
This dectares all 3 names to be real. 


.. «Several value. names may be defined. at once,, The number .and. types. of the..names must 
conform to the arity and types. . the expression on the. right. hand side... 


X, Y, Z := 1.0, 2.0, 3.0; 
P, Q, R := TRIPLE(X, Y, Z); 


Several value names may be declared and defined at once. In this case, each of a group of 
~ value name names preceding a type specication are decared to be ofthat type. 
Xs integer, Y, Z: real :« 3, 40, 5.0; 


This declares X to be integer, and both Y and Z to be real. 


The declarations; definitions, and ‘combined déclarations and definitions are separated by 
semicotons; a semicolon after the fast is optional. 


The scope of each value name introduced in a let block is the entire block less any inner 
constructs that re-introduce the same value HaMe., However, a value name most not be used in the 
definitions preceling its own definition. 


All scopes for value names not introduced in a giyen let block pass.into that block. Hence, if 
the scope of a value name (Introduced by an outer construct) includes a let block and that value 
name is not re-introduced, it may be referred to Freely, within the, block. 

Example: 
fet x: real; T: real; 
TimeP4+ 375-0 © 
Xe 7 42.4; 
inX «xT 

. endiet 
_In this example, the value of P. is imported from. the outer, context. The scopes.of T and X are 
| both the entire block. _A reference to X in the definition of T would be illegal because it is within 
the scope of X. but does.not follow the definition of X. The arity of this construct is one, and. its 
type is real, because X«T has arity one and yee rem 


. ee ye 


Since a value name may-not-be used until after it has been defined, oe ee 
once in a block, it may not appear in its own definition. ‘Hence definitions such as — 
T:el+1; 


are never legal in fet blocks (though they may occur in iter clauses of for blocks; see Section 7.4) 


The expression following the word in is in the scope of all of the introduced value names, and 
hence can make use of their definitions. The entire tet construct conforms to this expression. 


7.3 The TAGCASE construct 


This selects one of a number of expressions, depending on the tag of.a oneot value, and 
extracts the constituent value. — . 


Syntax: 


tagcase-exp 1:= 
tagcese [ valuename := | expression [ ; ] 
tag-list : expression 
{ tag-tist : expression } 

tage list tt = teg tag-name (. tag-name | 


The entire construct is an expression whose values are those of the expression in the arm whose tag 
name matches that of the value of the test expression. If no match is found; the arm following the 
word otherwise is used. All arms must conform to each other, sued em Sele amr: conor ims 
sd al 


The expression following the word tagcase must be of arity one and of a oneot type. The. 
‘tag names appearing in the arms ofthe construct wut be tags of that oneof type. If they comprise 
af ve tgs th typ titra t's i Wk he therwils in igi. 


If a value name and ":=" appear after the word tagcase, that name is introduced for each 
arm of the construct except the otherwise arm. Its scope in each case is the expression in that 
arm, and its type is the constituent type indicated by the tag name for that arm. If an arm is 
evaluated (meaning that the tag of the test expression matches the tag name of the arm), the value 
name is defined to be the constituent value from the test expression. If the value name a "=" do 
not appear, the constituent value is not made available inside the arms. 

Example: 
Let X be of type 
oneof [ A: integer ; B : array{integer) ; C : real ; 0 : boolean ) 


If X has tag A and constituent value 3, 
tagcase P :=X; 
tagA:P+4 
tag B : P[6] 
otherwise : 5 
endtag 
has value 7. The first arm is taken, and P (whose type is integer in that arm) is defined to be 3, 
the constituent value of X. If X has tag B and constituent value some array whose sixth element is 
2, the value of the above construct is 2. In that case, P is defined to be the array. If X has tag C 
or D, the construct has value 5. In that case the constituent vatue is not available, since the value 
name's scopes do not include the otherwise arm. (This is because the otherwise arm can 
encompass different constituent types, so the type of the value name could not be determined.) 


More than one tag name may share the same arm if they indicate the same type. In this case, 
the tag names are all listed, separated by commas, after the word tag. 
Example: 
Let X be of type 
oneof [ A: integer ; B : real iC: integer } 
Then the following is permissible: 


tagcase P := X; : 
tag A, C : expression, (P is integer here) 
tag 8 : expressions (P is real here) 
endtag 


~$h- 


AM ee tv ae an sprig wd tegen pe 
wrt gn ot te bliin ne 


Wf the val ttt earn ah ere an, te a ie om pe 
of undef vaiues.of the appr ia 


7.4 The FOR conatrect 


bag at on ch et ton yt apn he ro 
previous cycles. The construct introduces © euesber: of’ sie: 
convey information from ane cycie.to the nent 


‘Spake 


_ erationrexp.:3= 


| expression | 
| iter def-part enditer 
ergs et {eet} ] 


The lop names are thse appearing in the decarions and defiitons flowing. the werd 
for. These declarations and definitions have the same:form as in a let block. a 
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The behavior of the for construct is as follows: The loop names are initialized, only once, to 
the values indicated in the definitions appearing after the word for, and the first iteration cycle 
begins. During each iteration oe these names have fixed values. 


The iteration body is then evaluated, using the current definitions of the loop names. The 
result of that evatuation is either a decision to terminate the iteration, with values to be returned, or 
a decision to iterate again with new definitions for the loop names. | 


‘The iteration body consists of an if construct, tagcase construct, or a tree of If, tagcase, and 
let constructs, with a slight modification: the arms may either be conventional expressions, of may 
consist of iter, some redefinitions, and enditer. There may be many arms of each type. 


If the arm that is chosen for evaluation is an expression, the iteration terminates, and the . 
"values of the expression are the values of the entire for construct. All such arms must conform to 
each other, and the entire construct conforms to these arms. 


If the chosen arm consists of iter, some redefinitions, and enditer, those loop names are 
redefined according to the the right hand sides of the redefinitions, and evaluation of the body is 
repeated. 

Examples: 
for Y : integer := 1; P: integer :=N; 
do if P ~= 1 then iter Y := Y«P ; P := P-1 ; enditer 
else Y 
endif 
endfor 
This computes the factorial of N. It introduces loop names Y and P, which are both integer. Their 


initial values are { and N, respectively. 


The body of this construct is an if/then/else construct whose first arm is a redefinition and 
. whose second arm is the expression "Y". Accordingly, at the beginning of each iteration cycle P is 
tested. If it is not one, the iter arm gives Y the new value YP and P the new value R-l, and 
another cycle begins. If P is one, the iteration terminates with the value Y. 


for T: real :=X; 

do = tet-D: real := (X/T - T)/2; 
in if D < eps then'T 

etee iter T := T + 0; enditer 

endif 

endiat 
endfor 

This computes the square root of X, using Newton's method. rhc insets acy oes a WON tk 


to introduce the temporary name D. Se Se . 
"| appears. 


The next example reverses the list given as “INPUT®, by initially defining T to be INPUT 
and U to-be the empty list, and then repeatedly moving dems from T to U. Assume the type LIST 
has been defined. by 

type LIST =.oneef [ empty : -aall | nonereply. sacar | om ‘vag ;rest : LIST J) | 
A “LIST™ is a chain of records containing an arbitrary number (perhaps eve) of reals. 
for T, U: LIST 2» IPUT, make-LIGT [-enpty:::0lkj; 
de tages Z := T; 
tug empty: U 
tag nonempty : 
iter 
T, U:= Zrest, make LIST.[ nonempty: record [-item: Zitemsreet : U J); 
endteg 
endfor 


The loop: vatue-names: must all be different. Their scopes are the entire for construct less ‘any 
inner blocks that:re-introduce the same name. They are declared ant inittay: defined: dy the meme 
manner as in a tet block. As in a let block, each name must be declared exactly once and defined 
exactly once, and. may appeer on the right hand aie: ony in definitions after its own. Each 
dechration; definition, combined detent fini Ween be falowet by 4 semtaston 
except the: last, for which the semicoten-ts options. : 


io pepe tet ee Sees Ba Bay : hot Og, ngeeltet Ghar deb icheeian it eee 8 et egg sacg hk valle: aii Ta st $5 GE) 8) Se Sa ee ee, Pe ee GS” 


Within each iter. arm the redefined value names must be-a. subset of the loop-names. These 
redefinitions may make use of the previous values of all names, including the one being redefined. 
These redefinitions do not include declarations, since the types of the loop names were dectared at 
the beginning of the for construct. . ach redefinition rout be followed by 2 semicolon except the 
Nast, for which the semicolon is optional. 


_ Unlike the definitions in a let/in block or-the. initial loop. value definitions in a for block, a 
redefinition in an- iter clause may contain, on. its right hand side, Joop names. that appear on the 
left hand side of the same or later redefinitians. In such a case, the. “old” value is used, that.is, the 
value that the name had on the iteration cycle just ending. If the name appeared on the left hand 
side of an earlier redefinition, its “new” vatue is used, that is, the resufit of that redefinition. 


Hence a redefinition such as 
JieJel; . 


is legal, and means that the next iteration cycle is to ane with a value of J which is one greater . 
_ than its value on the cycle just ended. In the factorial example given above, the eration clause _ 
iter Y:= xP ;P:=P-l;enditer | 


multiplies Y by the old value of P. If the order had. been reversed: 
iter P := P-1; Y := YeP ; enditer 


Y would be muttiplied by the new value of P, and the example program wouki compute the 
factorial of N-I. 


The simplest way to redefine two or more loop variables in terms of each others’ old values is 
to use a multiple assignment. For example: . 
iter x, Y := Y, X; enditer 


exchanges the values of X and Y for the next iteration cycle. 


A loop name not appearing ina redefinition after iter retains its old value. 


The scopes of any:value-nanves-other than’ the loop: nemnes: pass from outer blocks into the for 
in an if or tegcase construct evaluates to:an-error value) the Revition terminates end-retarns as its 
"value a tuple of untlef values.of. appropriate types. An-error arising ehewhere in the loop body 
‘does not cause special action: |W it:atiser tran‘ Iter wit the tatosted hop name ts defined 00 be 
the error value-and the iteration continnes. —— the final value tobe 
‘returrred, that error value: simply appears rte rent, 


7.5 The FORALL construct 


This generates one or more sets of values, of uniform type within each set, and either returns 
them as arrays or returns the result of some operation (such as addition) on them. ‘The former case 
is indicated by the word construct, the latter by the word evel followed by the name of the 
‘operator. The values may not: depend on exch other — ei ey ct 
stmvattareousty on x parse conmpener capable of doing 20. “se : 


This construct iia steer cube Wad lana seen eae ‘and a number of 
optional temporary value names, the latter in the the sane sititiher as in-ai let Block. 

Syntax: | 

foralt-exp t:« 
forall. vaiue-name in { expression 1{ <icu-sieail fect sapeenmieh ay, 
Tf decidef-part | 
forall-body-part 
{ forall-body-part } 
endail 


foralt-body-part 1s= construct expression |-evel: eae ies sivas 
foraltop re~ phe [times fein |e [or Famed 


—. The index names are those appearing before the word 4h The ata e visi me | 
appearing in. the declarations and definitions. ce abs f rary those 


The index and temporary names must all be different. Their scopes are the. entire construct 
fess any inner blocks that re-introduce the same value name. The types of the, indices are integer. 
The types of the temporary names are specified in their deolarations. As.in:e let expression, a 
temporary name may not appear in definitions preceding‘tts‘own.: © | 


Each expression appearing in brackets after the word in is of arity two with both. types 
“Hiteger:: The two comporienti’ aie’ the lew ‘and’ high fivhits, inclisive, for the index. For each 
number within those limits, the index is defined to be-that narbet, thé definitions of the temporary 
names are made, and all the parts are evaluated. When more than one index is given, this is done 
"for each potet in the “Cartesian product” of the ‘Taliges: that’ tx: for every combination of index 


In a Construct part, the expression is evaluated’ for each index valie, and for each 
‘component of the expression,'an array 1s formed”havihig: the caine lritts 8 the limits given for' the 
index and elements equal to the values obtained. If more tha’ ‘ofe index is given, ‘a 
multidimensional array is formed, that is, an array of arrays, with the first index referring to the — 
outermost array. If some component of the expression is an error value for some index value, that 
array element is simply set to that error value. 
Exampke: 
forall sin[ 1,4] 
X : real := squere_root(reak(J)); 
construct J, X, X+1.0 
"creates 3 arrays, all with range 1 to 4. The first is-integer and contains vatues |, 2, 3, and 4. The 
second is real and contains 1.0, 1.414, 1.732, and 2.0. The fast is real and contains 2.0, 2.414, 2.732, and 
3.0. This forall block is an expression of arity three whose values are these three arrays. 
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forall Jinl A, BLKiN[ C.D) | 
construct <expression> | 
endail 
1b eqttivalent to 
forall Jin[ 4,8 J 
forall ia[C;0) | 
Construct <oxpression> 
endall 
endall | i: . 
and constructs .a two-dimensional. array, that.is,..an: arrap.wehese. Uenits are [ A, B.} and. whose 
‘elements are arrays whose timits.are (0,.D.) 


In an eval part, the operation: smust-be one of:plum, times; min.:mex,-or, or ond. The arity — 
_of the expression :must be one,-end its type must:be appropriate for the operation: real-or integer: for 
plus, times, min, :or:tmex, boolean for or or-and. The expression is ‘evatuated for each index 
vaue, and the operation is. performed:on:the collection af, yalurs that-are produced. If multiple 
indices are used, the. operations. pesformed on: the-emtine collection -of values, produced: feral! 
combinations of trex values a a a J eit 
_Exarapie: 
forall yin (1, ) 
eval plus JxJ 


N 
rerarms 2 i? 


The result of an entire forall block is.an expression constructed by concatenating ‘the results 
of -all-of the parts. ; Ses ea ® aistae? 


Example 


forall Jin[ 1,N] 
-%: real.:=-square_sootreal()) ; 
eval plus JxJ 

construct J, X, X+1.0 

endal! 


is an expression of arity 4 and types integer, arraylinteger), errayireal) and arrayireal). 


If one of the bounds is an error value, or the lower bound ts greater than the upper bound | 
plus one, the result of the entire forall block is a ‘tuple of undef vahues of appropriate types. If the 
lower bound is equal to the upper bound plus one, the resale of each construct part is an array 
with no elements, and the result of each evel part is 0,1, pos, over, neg_over, false, or true, if 
the operator 1 is plus, times, min, max, or, or and, respectively. 


The scopes of any value names other than the index and temporary names, introduced in 
outer constructs, pass into ® the forall block. 


un 
* 
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8. FUNCTION DEFINITIONS 


A VAL program consists ofa collection of meds, each dating one mera onion a, 


AMY Nitmber of “internal” functions: Each. fanstion: 1; detiner pa fpnction. defo 
piece: of text consisting: of: 


(i). The word. function. . 
(2) The function. name.and ‘vfasmsilonapedlijiing.shie-arty: nick’ igpes of te: seguements | 
and returned:values. This information is.called the “header”. ; 
-_ (8) The type definitions used im the:function definition. If. this ts an-extermal function, — - 
the sdecarations of other external functions wed by this medals appear hereako, 
| CO) The definitions of the Internal functions subaitary to this one, Fonetion definitions: 
- | may thus be nested arbitra “Sf Sars 
(5) The expression. giving the va be rere by th fant ‘Tha the "bay ce 
of the function definition. 
(6) The word endfun. 


The definition of an- external function is an entire-module in: VAL. Definitions of internal 
functions.appear within. function-definitions in-item 4:of the above list. 


Syntax: 
module ::= externat-function-def 
externat-function-def :: = 
function function-header 
{ internal-function-def } 
expression 
endfun 
internal-function-def :: =. 
function function-header 
[ type-def-part ] 
{ internat-function-def } 
expression 


endtun 


_ type-external-def-part. st = type-externatdef { ; reramei) j 
- type-external-def 1: =: type-def | externatdef. 
-type-def-part-s: = type-def {'; type-det'} [-; ] 
». 2 type-def:::= bype-type-name: = type-spec 
. externa-def 3: «external. function-header | ae 
_. « function-header: 1: = function-name ( dect-{'; dot} tr pene spe} 


function-name ::= name 


Example: 


function sum_ot_squares (X, Y: read returns fem 
XaX + Ya¥ 
endfun 


Only the external (outermost) function defined in a module is accessible to other modules. 


Optional type definitions may appear after the header to give names to types. These 
user-defined names may be used anywhere in thefunction definition;“inclading its‘own header. 
The type definitions (and external declarations) are mparnied ive och other by —- a 
semicoton after the fast is optional. 

Example: 


. _ function complex_multiply (X, Y : complex returns complex) 
type complex = record [ re, im: real li 
record [ re: X.re # V.re'- X.im # Y.im ; im : Xm & V.re + Xe ® Y.im } 
endfun 


8.1 The header and value transmission 


The list of formal arguments and their type specifications appears in the header between the 
left parenthesis and the word returns. These declarations are separated from each other by 
‘semicotons. Each declaration may contain several value riames, which are’ bes slaeags from each 


other by commas. 


external dectaration. This dectaration covisist‘of the ward: esdtoerl | 
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The scope of the: formal arguments is the body:of:the function (the-expression), tess any inner 
constructs which re-introduce the same value name. - aids areas: given inthe header 
declarations, and their values are the valves of the: 3 
types of . the returned Talees_Ace:ghomn tn tivesienat:appeipestinnients ouppnatatiey: consi 
appearing after the word returns. This lst: 0f types-entiat-eonfarm :to the: bedy. In every 
invocation ef-a 5 oeeens esoinmten ee ere epeprere pat fenens Stee on f 
those of the definition. 


pa i ay tty... my? ty returne + }: --q) 
psa 
then, assuming the definition is correct and conforras to its tnvocation, the fevecation on 
FONRGEXP) 
is equivatent to _ : . 
fet ay sty. .ay sty 2 ARGEXP Jn. BOOYEXP.eadiet 
1.2 The EXTERNAL deciaration ean 


All functions used in a module that ere not dainnd in that madile ust be declared. im. an 


function's header, which is mot ry eecinuanvia | 
Example: | 
function tan (x : = returns real ) 
external sin (Q: real returnsreal); . 
external cos (Q: real retume real); 
- |. sin) { cos) 


This medule defines t the external function ton. . Sines, dt ses the functions sin and cos, which are 


nat function: inveration. ‘The 


not defined here, they must appear in external diecarations. (They must-be defined. dn.ather 


modules or accessed in a a subroutine library) The external declarations contain the headers for 


sin and cos, just as they might appear r in the definitions of these two functions. The formal - 


arguments appearing in the headers (°Q” in the preceding example) have no. significance, hey are | 
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Inchuded only for syntactic consistency. The intention is that the by 
the modules defining sin and cos into the module defining tan. 


A module's external declarations must appear following the header of the otrtermost function 
definition of that module, even if the functions being declared are used only by | internal functions 
The external declarations may precede, follow, or be mixed with the. type detinidany of the 


outermost function definition. 
8.3. Inheritance of deta, type definitions, and external declarations 


A function has access only to the data presented to it in its invocation. No data vies | are 
imported from any enclosing function definition. Type definitions made in one function: definition 
are inherited by all functions subsidiary to it. A redefinition in an internal function. of ape name 
already defined in an outer context ts not permitted. 


External declarations made in the outermost function definition are inherited by all internal 
functions. 


8.4 Scope of function definitions 


The scope of an external function definition consists of all modules of the Program except the 
module defining the function. That is, any’ external function may be thvoked from anywhere 
except in the module giving that function's definition. The: scope of an internal function consists 
solely of the immediately enclosing function definition. Note that this s prechudes any recursion or 


mutual recursion. 


. 83 -- 


The scope a ee ee SS 
function F ( <header> ) | 
external FF ( <header> ); 
type T = <type-spec> ; 
function G ( <hesder> ) 
type U = <type-epec> ; 
~fonetion i ( <hesder>) 


function N( <heeder> ) 
BODY, 
endfun 
BODY), . 
“function  ( <header>) 
function: P ( <header>-) 
BODY 
| x00, . 
endfun 
BODY, 
endfun 
‘the-body:of ‘anny venhe:fenetions: 
F FF (external), G, H (internal) 
G FF (external), “ (sternal) 
M FF (external),'N (internal) 
'N “FF (external) 
H FF (external), P (internal) 
‘ 


EF eamtnal) 


the body and header of may use defined types 


vo mZznmain 
om] 
[und 


The files comprising a program are transtated separately. The manner in which their 

Tames are used to access them in libraries and the manner in which they are. linked into a complete 

program is dependent on the implementation. No recursive invocations + among external or internal 
functions are permitted. 


Appendix:t - Formal Syntax 


module :: = externat-function-def 
external-function-def 3: = 

function: function-header 

[ type-externabdef-part | 

{ internat-function-def } 

expression 

endfun 
internal-function-def :1= 

[type-def-part ] 

{ internal-function-def } 

expression 

endfun 
type-external-def-part ::= type-external-def {; ; type-externat-def } [ ; ] 
type-external-def 1: = typedef | external-def 
type-def-part: 11= type-def { ; type-def } [ ; ] 
type-def :: = ype type-name. = type-spec 
externat-def ::= external function-header | 
function-header :: = function-name ( dect { ; dect } returns type-apec { , rmpespec }) 
function-name :: = name 
expression 1: level-l-exp | expression , levelt-exp | 
level-l-exp :1~ level-2-exp | level-t-exp | level-2-exp 
level-2-exp :1= level-3-exp | level-2-exp & level3-exp 
level-3-exp 11 = level-¢-exp | ~ level-t-exp 
level-4-exp 1: = level-5-exp | tevel-4-exp relationat-op fevel-S-exp 
level-S-exp t= levelG-exp | level-S-exp levelGexp 
level-6-exp :: = level-7-exp | level-6-exp adding-op level-7-exp 
level-7-exp ::= level-8-exp | fevel-7-exp tnuttiplying-op tevel-S-exp - 
level-8-exp ::= primary | unary-op primary 


Spee) fa." es PU REL Ss aps 
twits | cat ae oe i 


relational-op :: = <|<s |> | 2s {=| we 
adding-op ::= +|- “ 

multiplying-op 3: = * | / 

unary-op ttm + | - si 


primary ::= constant | value-name 
| (expression) 
| invocation 
| array-ref | array-generator 
| record-ref | record-generator 
| oneof-test | oneof-generator 
| error-test | prefix-operation 
| conditional-exp: 
| let-in-exp 
| tagcase-exp 
| iteration-exp 
| forall-exp 
value-name :3= name 
invocation ::= function-name (expression) 
array-ref ::= primary [expression] 
array-generator ::= [ expression : expression { ; expression ; ‘expression r 
| primary [ expression : expression { ; reresaen 3 expression gi 
record-ref ::= primary . field-name 
record-generator :t= record [ fiekt-name : exprsion {1 flekd name : aceon }} 
_ | primary replace [ field ; expression { ; field : ise 
“field ::« field-name {. field-name} 


field-name ::= name 


oneof-test :: = is tag-name Gietebel: . 
oneof-generator :: = mMak@ type-spec. peak net ; expression } 3 
tag-name 1: = name 

- error-test ::= is undef (expreccn) | is miss_elt (expression) 
| is error (expression) | is zero_divide (expression) 


| is pos_over (expression) | is neg_over (expression) 
| is pos_under (expression) | is. neg_under (expression) - 
| is over (expression)| issunder (expression) 
| is aritherror-(expression) | is unknown{e 
prefix-operation ::=. integer (expression) 
| real (expression) 
_ | character (expression) 
| abs (expression): 
| excp (expression) 
| mod:{expression). 
| max (expression). 
| rnin (expression) 
| array _fill (expression) 
| array;.timh {expression} . 
| array. size (expression) 
| array: adjust:{expression). 
| array. addi (expression) 
| array_addl expression) 
| array_remh {expression}: 
| array_reml (expression) 
| erray_join (expression) 
| array_seti (expression) 
constant +:= nit | true| fatee- 
| genie tn | tanec | eer ig cnn 
| array_empty{type-spec] 
| undefitype-specl | miss_eltitype-spec] 
| pos_overttype-spec] | inecalaiaieninia ao | 
| pos_underitype-spec} | neg_urideritype-spec]” 
| unknownitype-spec] | zero. sividelepe spe 
type-spec :: = basic-type-spec: 
| compound-type-spec 


| type-name ses 
basic-type-spec :: = null | boolean | integer | ¥oal: [oes 
compound-type-spec ::= array {type-spec} 7 ae 
7 | record [ fiekl-spec {; field-spec }} 
| oneof [ tag-spec { ; tag-spec }h 
field-spec :: = field-name { » field-name } : type-apec - 
 tag-spec ::= tag-name { , tag-name } [ : type-spec ] 
| type-name 33= name : 
conditional-exp :: = if expression then expression. 
{ elseif expression then expression } 
else expression _ 
endif 
let-in-exp ::= 
tet deckdlef-part 
in expression 
endiet 
decldef-part ::= deckdef { ; deckef } [ ; ] 
decidef :: = dec! 
| def 
| dect { , deci } := expression 
decl ::= value-name { , Value-name } : type-spec 
def ::= value-name { , Value-name } 2= expression 
tagease-exp 11 
faecsse i value-name := ] expression [; | 
tag-list : expression 
{ tag-list : expression } 
[ otherwise : expression ] 
endtag 
tag-list :: = tag tag-name { , tag-name } 
iteration-exp ::< 
for decidef-part 
do iter-end 


endfor 
iter-end ::= If expresston:then iter-end 
{ elseif expression:thendter-end'} 
eles iter-end: endif: 
| tegease [ vatue-name:=  fexprenion [:; 1 
tag-list : iterend 
{ tag-tise: teersends} 
[ otherwise: tter-end ]: ondteg 
| let decktef-part in iterentzondiet 
| expression 
| iter -def-part-enditer 
def-part 13 def:{ ; def'}:[;-] 
forall-exp::: = 
forall value-name. ii [ expression: i, -valuenamedn [expression }'} 
[ destdef-part |]. 
- endall 
forallbody-part ::.= construct:-expression: [eval forathop exp 
sm ear , 


Funetion Module 


FUNCTION 


Function Header 


Type and Function Definitions 


Function 
header 


EXTERNAL 


Null type 
abbreviation. 


Expression* 


1 Multiplying 1 
Expression operator Expression 


Adding 
operator 


“The precedence levels for these. infix operators is 
illustrated by their position in the chart; “unary 
“operator” is highest precedence, comma lowest. 


The superscript following “expression” indicates 
the number of values that must be represented 
by the term replacing that box in the program. 
— an exact number -> that arity is the onty legal one 
“nt +> any arity is valid 
-"K" => arity must-match arity of other 
expressions in some chart 


Record ref 


Grouping op 


generator 


Oneof 
generator 


Conditional , 
exp 
Let-in 
. Tagcase 
exp 


Iteration 
Foral! 
exp 
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Iter-end 


Conditional Exp 
- {conditional iter-end) 


, é 
Expression ee 


t 


_ ELSEIF. Eupienion ; JHEN _ 


1 
‘| Expression 


Definition 


Declaration 


Multiple Definition 


Decl-Def Part 


—- 
y Multiple ‘ 


definition 


ARRAY-ADDL | 


ARRAY-FILL 


ARRAY-SETL 


Constant 


MIS-ELT 


POS-OVER 


Function name, formal parameter, type name, 
value name, field name, tag name: 


= they are all simple identifiers , 


